home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 2004 #9
/
Amiga Plus CD - 2004 - No. 09.iso
/
amigaplus
/
tools
/
amigaos4_only
/
ifxlite
/
imagefx3
/
rexx
/
autofx
/
load.ifx
< prev
next >
Wrap
Text File
|
2004-08-03
|
1KB
|
58 lines
/*
* $VER: Load.ifx 2.6 (24.04.96)
* Copyright © 1992-1996 Nova Design, Inc.
* Originally written by Steve Tibbett
* Updated by Thomas Krehbiel
*
* Loads main, swap, and alpha buffers. Only loads the images if
* they are specified.
*
* Inputs:
* Word(Arg(1),1) = Frame number (1 - N)
* Word(Arg(1),2) = Main filename ("-" if not specified)
* Word(Arg(1),3) = Swap filename ("-" if not specified)
* Word(Arg(1),4) = Sequence number (?)
* Word(Arg(1),5) = Total number of frames (N)
* Word(Arg(1),6) = Alpha filename ("-" if not specified) [2.6]
*
* Returns:
* 0 if successful, non-zero on failure
*
*/
OPTIONS RESULTS
/*
* AutoFX 2.6 now sets some clip variables. If we find them, use them instead
* of the arg strings so that we can handle filenames with spaces in them.
*/
MainName = GETCLIP('AUTOFX_MAIN')
IF MainName = "" THEN MainName=word(Arg(1),2)
SwapName = GETCLIP('AUTOFX_SWAP')
IF SwapName = "" THEN SwapName=word(Arg(1),3)
AlfName = GETCLIP('AUTOFX_ALPHA')
IF AlfName = "" THEN AlfName=word(Arg(1),6)
/* test = GETCLIP('FRIDAY')
RequestNotify '(' test '|' MainName '|' SwapName '|' AlfName ')' */
LoadBuffer Force '"'MainName'"'
IF rc ~= 0 THEN EXIT rc
IF (SwapName ~= "-") THEN DO
Swap
LoadBuffer Force '"'SwapName'"'
IF rc ~= 0 THEN EXIT rc
Swap
END
IF (AlfName ~= "-") /*&& (AlfName ~= "")*/ THEN DO
LoadAlpha '"'AlfName'"' Force
IF rc ~= 0 THEN EXIT rc
END
EXIT 0